home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / dblrou1r / main.frm < prev    next >
Text File  |  1998-11-04  |  15KB  |  460 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    BackColor       =   &H00000000&
  4.    BorderStyle     =   0  'None
  5.    Caption         =   "Form1"
  6.    ClientHeight    =   7200
  7.    ClientLeft      =   0
  8.    ClientTop       =   0
  9.    ClientWidth     =   9600
  10.    FillStyle       =   0  'Solid
  11.    Icon            =   "main.frx":0000
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   480
  16.    ScaleMode       =   3  'Pixel
  17.    ScaleWidth      =   640
  18.    ShowInTaskbar   =   0   'False
  19.    StartUpPosition =   2  'CenterScreen
  20.    WindowState     =   2  'Maximized
  21.    Begin VB.Frame Frame1 
  22.       BackColor       =   &H00000000&
  23.       Caption         =   "-=Game=-"
  24.       BeginProperty Font 
  25.          Name            =   "Fixedsys"
  26.          Size            =   9
  27.          Charset         =   0
  28.          Weight          =   400
  29.          Underline       =   0   'False
  30.          Italic          =   0   'False
  31.          Strikethrough   =   0   'False
  32.       EndProperty
  33.       ForeColor       =   &H000000FF&
  34.       Height          =   7095
  35.       Left            =   7200
  36.       TabIndex        =   0
  37.       Top             =   0
  38.       Width           =   2295
  39.       Begin VB.CommandButton btnOutPut 
  40.          DisabledPicture =   "main.frx":0E42
  41.          DownPicture     =   "main.frx":21FC
  42.          BeginProperty Font 
  43.             Name            =   "Comic Sans MS"
  44.             Size            =   14.25
  45.             Charset         =   0
  46.             Weight          =   400
  47.             Underline       =   0   'False
  48.             Italic          =   0   'False
  49.             Strikethrough   =   0   'False
  50.          EndProperty
  51.          Height          =   495
  52.          Left            =   120
  53.          Picture         =   "main.frx":502E
  54.          Style           =   1  'Graphical
  55.          TabIndex        =   6
  56.          Top             =   2520
  57.          Width           =   2055
  58.       End
  59.       Begin VB.CommandButton btnPlay 
  60.          DisabledPicture =   "main.frx":7E60
  61.          DownPicture     =   "main.frx":921A
  62.          BeginProperty Font 
  63.             Name            =   "Fixedsys"
  64.             Size            =   9
  65.             Charset         =   0
  66.             Weight          =   400
  67.             Underline       =   0   'False
  68.             Italic          =   0   'False
  69.             Strikethrough   =   0   'False
  70.          EndProperty
  71.          Height          =   495
  72.          Left            =   120
  73.          Picture         =   "main.frx":C04C
  74.          Style           =   1  'Graphical
  75.          TabIndex        =   5
  76.          TabStop         =   0   'False
  77.          Top             =   1080
  78.          Width           =   2055
  79.       End
  80.       Begin VB.CommandButton btnQuit 
  81.          DisabledPicture =   "main.frx":EE7E
  82.          DownPicture     =   "main.frx":10238
  83.          BeginProperty Font 
  84.             Name            =   "Fixedsys"
  85.             Size            =   9
  86.             Charset         =   0
  87.             Weight          =   400
  88.             Underline       =   0   'False
  89.             Italic          =   0   'False
  90.             Strikethrough   =   0   'False
  91.          EndProperty
  92.          Height          =   495
  93.          Left            =   120
  94.          Picture         =   "main.frx":1306A
  95.          Style           =   1  'Graphical
  96.          TabIndex        =   4
  97.          TabStop         =   0   'False
  98.          Top             =   6360
  99.          Width           =   2055
  100.       End
  101.       Begin VB.CommandButton btnPauseResume 
  102.          DisabledPicture =   "main.frx":15E9C
  103.          DownPicture     =   "main.frx":17256
  104.          BeginProperty Font 
  105.             Name            =   "Fixedsys"
  106.             Size            =   9
  107.             Charset         =   0
  108.             Weight          =   400
  109.             Underline       =   0   'False
  110.             Italic          =   0   'False
  111.             Strikethrough   =   0   'False
  112.          EndProperty
  113.          Height          =   495
  114.          Left            =   120
  115.          Picture         =   "main.frx":1A088
  116.          Style           =   1  'Graphical
  117.          TabIndex        =   1
  118.          TabStop         =   0   'False
  119.          Top             =   1800
  120.          Width           =   2055
  121.       End
  122.       Begin VB.Label Label2 
  123.          BackStyle       =   0  'Transparent
  124.          Caption         =   "Player2:"
  125.          BeginProperty Font 
  126.             Name            =   "Fixedsys"
  127.             Size            =   9
  128.             Charset         =   0
  129.             Weight          =   400
  130.             Underline       =   0   'False
  131.             Italic          =   0   'False
  132.             Strikethrough   =   0   'False
  133.          EndProperty
  134.          ForeColor       =   &H00FF0000&
  135.          Height          =   255
  136.          Left            =   120
  137.          TabIndex        =   3
  138.          Top             =   600
  139.          Width           =   2055
  140.       End
  141.       Begin VB.Label Label1 
  142.          BackStyle       =   0  'Transparent
  143.          Caption         =   "Player1:"
  144.          BeginProperty Font 
  145.             Name            =   "Fixedsys"
  146.             Size            =   9
  147.             Charset         =   0
  148.             Weight          =   400
  149.             Underline       =   0   'False
  150.             Italic          =   0   'False
  151.             Strikethrough   =   0   'False
  152.          EndProperty
  153.          ForeColor       =   &H000000FF&
  154.          Height          =   255
  155.          Left            =   120
  156.          TabIndex        =   2
  157.          Top             =   360
  158.          Width           =   2055
  159.       End
  160.    End
  161. End
  162. Attribute VB_Name = "Form1"
  163. Attribute VB_GlobalNameSpace = False
  164. Attribute VB_Creatable = False
  165. Attribute VB_PredeclaredId = True
  166. Attribute VB_Exposed = False
  167. ' Most of the game stuff if stuck in here... Feel free to browse the mess! It all works
  168. ' btw!!! :)
  169.  
  170. ' This is the main game loop flag. To exit the program, just make bActive false
  171. Private bActive As Boolean
  172. ' This is the playing loop flag. To pause the game from playing, make this false
  173. Private bPaused As Boolean
  174. ' If the game screen should be refreshed (Redrawn), set this to false
  175. Private bRefreshed As Boolean
  176. ' This is player1
  177. Private Player1 As New Player
  178. ' This is player 2
  179. Private Player2 As New Player
  180. ' This is our customised, and infinitely kooler, messagebox
  181. Private MesBox As New MessBox
  182.  
  183. ' Game input. Uses my own class wrapper for DirectInput which is part of the CDXVB
  184. ' library of class wrappers for DirectX in VB
  185. Private GameIN As New CDXVBInput
  186. Private GameMusic As New CDXVBMusic
  187.  
  188. Private Sub btnOutPut_Click()
  189.       GameIN.UnAcquire
  190.       OutPutfrm.Show vbModal, Me
  191.       GameIN.ReAcquire
  192.       
  193.       ' Redraw the screen
  194.       bRefreshed = False
  195. End Sub
  196.  
  197. Private Sub btnPauseResume_Click()
  198.       ' If the game is currently paused then load new bitmaps into pause/resume button
  199.       ' Otherwise, load other bitmaps
  200.       If bPaused Then
  201.             ' This little thang I thunk up is well handy... Checks to see if you are
  202.             ' in the root of the drive (\), if so, then load bitmaps without the '\'
  203.             ' in the pathname! (Prevents crashing when running from root like some
  204.             ' people may wish to)
  205.             If Mid(App.Path, 2, 1) = "\" Then
  206.                   btnPauseResume.Picture = LoadPicture(App.Path & "PAUSE.BMP")
  207.                   btnPauseResume.DisabledPicture = LoadPicture(App.Path & "PAUSEOFF.BMP")
  208.                   btnPauseResume.DownPicture = LoadPicture(App.Path & "PAUSEDOWN.BMP")
  209.             Else
  210.                   btnPauseResume.Picture = LoadPicture(App.Path & "\PAUSE.BMP")
  211.                   btnPauseResume.DisabledPicture = LoadPicture(App.Path & "\PAUSEOFF.BMP")
  212.                   btnPauseResume.DownPicture = LoadPicture(App.Path & "\PAUSEDOWN.BMP")
  213.             End If
  214.             bPaused = False
  215.       Else
  216.             If Mid(App.Path, 2, 1) = "\" Then
  217.                   btnPauseResume.Picture = LoadPicture(App.Path & "RESUME.BMP")
  218.                   btnPauseResume.DisabledPicture = LoadPicture(App.Path & "RESUM